असेंबली भाषा मैक्रो सिस्टम - MSYSTEM.MAC

msystem.zip 411KB.

मैक्रो सिस्टम

संग्रह में मुख्य फ़ाइलों का संक्षिप्त विवरण.

मैक्रो सिस्टम ही:

एमएससिस्टम.मैक इस फ़ाइल में वास्तविक मैक्रो सिस्टम शामिल है.

MMACROS.MAC इस फ़ाइल में अतिरिक्त उपयोगी मैक्रो परिभाषाएँ हैं।

एमबीआईओएस.मैक इस फ़ाइल में IBM-PC BIOS के लिए मैक्रो परिभाषाएँ हैं।

एमडीओएस.मैक इस फ़ाइल में IBM-PC DOS के लिए मैक्रो परिभाषाएँ हैं।

कॉनियो.मैक

डीआईआर.मैक

त्रुटि.मैक

फ्लोट.मैक

आईओ.मैक

केबीडी.मैक

गणित.मैक

एमबीआईओएस.मैक

मेम.मैक

माउस.मैक

स्टोव.मैक

स्ट्रिंग.मैक

SYS.मैक

मैक्रो सिस्टम ही:

चॉइस.एम

घड़ी.एम

कोडर.एम

रंग.एम

कर्सर.एम

डीबीईडीआईटी.एम

आईएनआईटी.एम

कुंजी.एम

मेनू.एम

MKEYS.M

पढ़ें.एम

आरईसी.एम

कहो.एम

स्क्रॉल.एम

सॉर्ट.एम

ध्वनि.एम

विंडो.एम

दस्तावेज़ीकरण:

एमएससिस्टम.डीओसी यह मैक्रो सिस्टम के लिए एक दस्तावेज़ीकरण फ़ाइल है.

EXTA.DOC

MMACROS.DOC

एमएमईएम.डीओसी

OGLAV.DOC

पढ़ें.DOC

शीर्षक.दस्तावेज़

*.एएसएम फ़ाइलें इन फ़ाइलों में शामिल हैं

सिस्टम पर इंस्टालेशन के लिए
याद रखें कि असेंबलर त्रुटियाँ
आपका दृष्टिकोण जो भी हो -
असेंबलर को यहां से डाउनलोड किया जा सकता है tasm25.zip - 175 केबी.

उदाहरण के लिए, यहां एक सरल कोड है

;
;

.मॉडल छोटा

msystem.mac शामिल करें
sys.mac शामिल करें
conio.mac शामिल करें
माउस.मैक शामिल करें
mem.mac शामिल करें
kbd.mac शामिल करें
गणित.मैक शामिल करें
कर्सर शामिल करें.एम
window.m शामिल करें
रंग शामिल करें.एम
rec.m शामिल करें
dbedit.m शामिल करें
इसमें कहना शामिल है.एम
read.m शामिल करें
key.m शामिल करें
mkeys.m शामिल करें

एमबीएएम शामिल करें

साइज़_कॉम = 20000+256
लेन_स्टैक = 20000
लेन_वार्स = 20000

.कोड
प्रारंभ प्रारंभ,100 घंटा,_मुख्य,{

func mb_empty,
मूव एसआई, buf_A
मेम्फिल <32,@DEBET_NAME,LEN_NAME>
मेम्फिल < 0,@DEBET_QUAN,LEN_QUAN>
मेम्फिल <32,@ KREDIT_NAME,LEN_NAME>
मेम्फिल < 0,@ KREDIT_QUAN,LEN_QUAN>
अंत

func _pic,<बाइट X,बाइट Y>,,1,सार्वजनिक
पुराना_रंग EQU [बीपी]-1
getcolor ,
मूव एसआई, buf_A
सेटकलर
saxy
सेटकलर <पुराना_रंग>
<@DEBET_NAME,@f_name> कहें
सेटकलर
<@space,@f_s> कहें
सेटकलर <पुराना_रंग>
<@ DEBET_QUAN,@ f_quan> कहें
सेटकलर
<@space,@f_s> कहें
सेटकलर
<@space,@f_s> कहें
सेटकलर <पुराना_रंग>
<@ KREDIT_NAME,@ f_name> कहें
सेटकलर
<@space,@f_s> कहें
सेटकलर <पुराना_रंग>
कहें <@ KREDIT_QUAN,@ f_quan>
सेटकलर
<@space,@f_s> कहें
सेटकलर <पुराना_रंग>
अंत

func _fuser,<बाइट मोड,शब्द RecCur>,,1,सार्वजनिक
पुराना_रंग EQU [बीपी]-1
मूव डीआई, 1
मूव एएल, सीएस:मोड
एएल स्विच करें,<0,1>
मामला एक { ;
getcolor ,
सेटरंग
पुनर्गणना <@ rec_A>,
saxy <35, 2,@ ii,@ f_w4>
पुनः प्राप्त करें <@ rec_A>,
saxy <41, 2,@ ii,@ f_w4>
सेटकलर <पुराना_रंग>
केस 2 {
mov retr_cho, सत्य
जबकि {
mov retr_cho, गलत
mkeys_to
मूव एएल, सीएस:key_AL
स्विच AL, {
मामला एक {
मूव एएच, सीएस:की_एएच
स्विच AH,
मामला एक ;
सम्मिलित करना ,
केस 2 ;
हटाना ,
केस 3 ;
छँटाई ,
केस 4 ;
केस 5 ;
डेटिंग,
केस 6 ;
मेनूपुल
मूव डीआई, 3
अंतिम मामला
केस 2 { ;
केस 3 ;
इनपुट ,
केस 4 ;
मूव हो गया, गलत
MovDI,0
अंतिम मामला
अंत
अंतिम मामला
अंतफ़ <शब्द डीआई>

लेबल1 डीबी 'आ रहा है',0
लेबल2 डीबी 'उपभोग',0
शीर्षक1 डीबी 'नाम मात्रा

ukeys1 db 1Eh,0
ukeys2 db 1Fh,0
स्काईस1 डीबी 'एंटर',0
nkeys1 db 'ENTER',0
स्काईज़2 डीबी 'आईएनएस',0
nkeys2 db 'नया',0
स्काईज़3 डीबी 'डीईएल',0
nkeys3 db 'हटाएँ',0
स्काईज़4 डीबी 'एफ5',0
nkeys4 db 'प्रिंट',0
स्काईज़5 डीबी 'एफ6',0
nkeys5 db 'ऑर्डर',0
स्काईस6 डीबी 'एफ7',0
nkeys6 db 'खोज',0
स्काईस7 डीबी 'एफ8',0
nkeys7 db 'SUM',0
स्काईज़8 डीबी 'एफ10',0
nkeys8 db 'मेनू',0
स्काईज़9 डीबी 'ईएससी',0
nkeys9 db 'छोड़ें',0

;--- प्रमुख प्रक्रिया
मुख्य कार्य
;
सीएलआई
मूव एसपी, साइज_कॉम+लेन_स्टैक
एसटीआई
;
फ़ाररिलीज़ <*CS 00.00 size_com+len_stack+len_vars>
initcon
रिलीज़ <* size_com+len_stack,0>
initsys
initmouse
कर्सर_बंद
;
सेट रंग <<<बाइट पीटीआर MainAttr>>>
ड्रॉबॉक्स ड्रॉबॉक्स < 0, 2.79, 2,@box_main>
माउस_ऑन
सेटरंग
saxy <16, 0,@ लेबल1,@ f_s>
saxy <56, 0,@ लेबल2,@ f_s>
सेटकलर
saxy <0, 1,@ title1,@ f_s>
सेटकलर
कहें <@ title1,@ f_s>
सेट रंग <<<बाइट पीटीआर MainAttr>>>
;
रंग
mkeys_on
mkeys_fr <79, 0,PGUPKEY*100h,@ ukeys1,@ snull>
mkeys_fr <79,24,PGDNKEY*100h,@ ukeys2,@ snull>
mkeys_fr < 4,24,CRKEY,@ skeys1,@ nkeys1>
mkeys_fr <14,24,INSKEY*100h,@ skeys2,@ nkeys2>
mkeys_fr <22,24,DELRKEY*100h,@ skeys3,@ nkeys3>
mkeys_fr <30,24,F5KEY*100h,@ skeys4,@ nkeys4>
mkeys_fr <37,24,F6KEY*100h,@ skeys5,@ nkeys5>
mkeys_fr <44,24,F7KEY*100h,@ skeys6,@ nkeys6>
mkeys_fr <51,24,F8KEY*100h,@ skeys7,@ nkeys7>
mkeys_fr <58,24,F10KEY*100h,@ skeys8,@ nkeys8>
mkeys_fr <65,24,ESCKEY,@ skeys9,@ nkeys9>
mkeys_on <गलत>
;
पुनः खोलें <@ rec_A,@ file_A,len_A>
getmem , ;recbuffer
रिसेम्प्टी <@ rec_A,@ _mb_empty>
;
रंग
मूव हो गया, सच है
जबकि
dbedit <@ rec_A, 0, 3,79,23,@ cs:__pic,@ cs:__fuser>
अंत
;
फ्रीमेम<*buf_A>
पुन: बंद करें <@ rec_A>
;
mkeys_of
;
माउस_बंद
कर्सर_पर
;
clrscr
रुकें <0>
अंत
अंत प्रारंभ